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SECTION  1 
INTRODUCTION 


The  CDM  Compare  Utility  is  composed  of  three  executables. 
CDM  Compare  is  performed  in  three  phases  -  CDM  EXTRACT,  CDM 
COMPARE  and  CDM  REPORT.  The  creation  of  these  executables  for 
the  three  phases  is  achieved  by  precompiling  the  database  access 
programs,  flanning  the  form  definition  files,  compiling  the 
source  code  and  linking  the  EXTRACT,  COMPARE  and  REPORT 
executables. 

Section  2  lists  the  prerequisites  of  the  CDM  Compare 
Utilitycd  Environment.  Section  3  contains  the  step  by  step 
instructions  for  building  the  CDM  Compare  Utility  executables. 
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SECTION  2 
PREREQUISITES 


The  Prerequisites  to  creating  the  COM  COMPARE  environment 

are: 


1.  Existence  of  an  object  library  TOOLOLB  in  the  directory 
cdmdir: [tools. comp]  for  the  Compare  software. 

2.  Existence  of  an  object  library  GENOLB  in  the  directory 
cdmdir: [tools. comp]  for  the  generated  code. 

3.  Existence  of  a  a  FORMS  directory;  this  is  the  directory 
pointed  to  by  the  logical  IISSULIB. 

4.  All  the  software  must  be  compiled  and  placed  in  TOOLOLB 
according  to  normal  Integration  and  Testing  procedures. 

5.  The  NDDL  and  NDML  executables  must  be  available. 
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SECTION  3 


PROCEDURES  TO  BUILD  THE  CDM  COMPARE  EXECUTABLES 


The  following  steps  must  be  executed  in  order  to  construct 
the  CDM  Compare  Executables. 

CDM  EXTRACT  PHASE 


1.  The  following  files  must  have  been  compiled  according  to 
normal  Configuration  Management  Procedures  and  placed  in  the 
TOOLOLB.OLB  object  library: 

CXMAIN.COB  (Main  Program) 

CXFPIO.COB 

CXFFIO.COB 

2.  The  CXMAIN.COB  must  be  compiled  and  left  as  a  local  object. 
PRECOMPILE  and  COMPILE  the  following  NDML  embedded  source  code 
by  executing  the  procedure  file  BLDXCMP.COM: 

CXISKM.PRC 

CXCSKM.PRC 

CXESKM.PRC 

CXCISM.PRC 

CXCESM.PRC 

CXCMAP.PRC 

Proceed  as  follows: 

$  eBLDXCMP 

PRECOMPILE  AND  COMPILE  A  GROUP  OF  PRC's 


NAME 

OF 

THE 

APPLICATION>: 

CDMXCMP 

NAME 

OF 

THE 

PRC 

FILE 

(C/R 

TO 

STOP, 

LEAVE . PRC 

OFF) 

CXISKM 

NAME 

OF 

THE 

PRC 

FILE 

(C/R 

TO 

STOP, 

LEAVE . PRC 

OFF) 

CXCSKM 

NAME 

OF 

THE 

PRC 

FILE 

(C/R 

TO 

STOP, 

LEAVE . PRC 

OFF) 

CXESKM 

NAME 

OF 

THE 

PRC 

FILE 

(C/R 

TO 

STOP, 

LEAVE . PRC 

OFF) 

CXCISM 

NAME 

OF 

THE 

PRC 

FILE 

(C/R 

TO 

STOP, 

LEAVE . PRC 

OFF) 

CXCESM 

NAME 

OF 

THE 

PRC 

FILE 

(C/R 

TO 

STOP, 

LEAVE . PRC 

OFF) 

CXCMAP 

NAME 

OF 

THE 

PRC 

FILE 

(C/R 

TO 

STOP, 

LEAVE . PRC 

OFF) 

<CR> 

NDML  PRECOMPILE  SUCCESSFULLY  COMPLETED 
BEGIN  COMPILING  GENERATED  CODE 

RESULTS  OF  COMPILE  CAN  BE  FOUND  ON  CDMXCMP.MSG 

3.  Execute  the  procedure  file  LNKXCMP.COM  to  generate  the 
RP-MAIN,  compile  the  RP-MAIN  and  link  the  CDM  Extract 
executable.  This  procedure  file  automatically  updates  the  two 
NTM  tables  -  APITBL.DAT  and  APTIBL.DAT.  Proceed  as  follows: 

$  @LNKXCMP 

4.  Flan  the  file  CXSCRN.FDL.  The  form  definition  files  will  be: 

SDCXSCREEN.FD 
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SDCXSCHEMA.FD 

5.  Define  the  CDM  Extract  Function  using  the  user  interface 
utility  SYSGEN.  The  name  of  the  function  is  CDMXTRCT,  the 
application  is  GRCDMXTRCT,  the  user  name,  password  and  role  is 
CDM. 

CDM  COMPARE  PHASE; 

1.  The  following  files  must  have  been  compiled  according  to  the 
normal  configuration  management  procedures  and  placed  in  the 
TOOLOBL.OLB  object  library: 

CCMAIN.COB  (Main  Program) 

CCSORT.COB 

CCFPIO.COB 

CCSFIO.COB 

CCCOMP.COB 

2.  The  CCMAIN.COB  must  be  compiled  and  left  as  a  local  object. 
Using  NDDL,  run  the  Compare  meta  data  into  the  CDM.  Proceed 
as  follows: 

$NDDL  CDMCCDM.DAT 

Examine  CDMCCDM.OUT  to  assure  that  all  NDDL  commands  completed 
successfully. 

3.  Create  the  Oracle  Compare  tables  in  the  CDM.  Proceed  as 
follows: 

$UFI  CDM/CDM 

UFI>START  CDMCORA.DAT 
UFI>EXIT 

4.  Precompile  and  compile  the  following  NDML  embedded  source  code 
by  executing  the  procedure  file  BLDCCMP.COM: 

Proceed  as  follows: 

$@BLDCCMP 


PRECOMPILE  AND  COMPILE  A  GROUP  OF  PRC's 
NAME  OF  THE  APPLICATION> :  CDMCCMP 

NAME  OF  THE  PRC  FILE  (C/R  TO  STOP,  LEAVE. PRC  OFF):  CCNDML 
NAME  OF  THE  PRC  FILE  (C/R  TO  STOP,  LEAVE. PRC  OFF):  <CR> 

NDML  PRECOMPILE  SUCCESSFULLY  COMPLETED 
BEGIN  COMPILING  GENERATED  CODE 

RESULTS  OF  COMPILING  CAN  BE  FOUND  ON  CDMCCMP. MSG 

5.  Execute  the  procedure  file  LNKCCMP.COM  to  generate  the 
RP-MAIN,  compile  the  RP-MAIN  and  link  the  CDM  Compare 
executable.  This  procedure  file  automatically  updates  the  two 
NTM  tables  -  APITBL.DAT  and  APTIBL.DAT.  Proceed  as  follows: 

$  §LNKCCMP 
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6.  Define  the  CDM  Compare  Function  using  the  user  interface 
utility  SYSGEN.  The  name  of  the  function  is  CDMCCMPZ.  The 
name  of  the  application  is  GRCDMCCMPZ,  the  user  name,  password 
and  role  is  CDM. 

7.  Flan  the  file  CCSCRN.FDL.  The  form  definition  file  will  be: 

SDCCSCREEN.FD 
CDM  REPORT  PHASE 


1.  The  file  CDMRRP.FDL  must  be  processed  by  the  Report  Writer 
using  the  procedure  file  GENAP.COM.  The  following  files  are 
created: 

CDMRRP.C  CDMRRP.PRC  SDCREPRT.FD 

SCL.FD  IR.FD 

The  NDML  embedded  source  code  generated  is  then  precompiled 
and  compiled  automatically  in  the  same  procedure  if  no  errors 
are  encountered. 

Proceed  as  follows: 

$  @BLDRCMP 

GAP  AND  PRECOMPILE 

ENTER  NAME  OF  THE  . FDL  FILE  (LEAVE  . FDL  OFF)  CDMRRP 
ENTER  YOUR  CDM  USERNAME/ PASSWORD 

NDML  PRECOMPILE  SUCCESSFULLY  COMPLETED 
BEGIN  COMPILING  GENERATED  CODE 

RESULTS  OF  COMPILING  CAN  BE  FOUND  ON  CDMRCMP.MSG 

2.  Execute  the  procedure  file  LNKRCMP.COM  to  generate  the 
RP-MAIN,  compile  the  RP-MAIN  and  link  the  CDM  Report 
executable.  This  procedure  automatically  updates  the  two  NTM 
tables  -  APITBL.DAT  and  APTIBL.DAT.  Proceed  as  follows: 

$  @LNKRCMP 

3.  Define  the  CDM  Compare  Function  using  the  user  interface 
utility  SYSGEN.  The  name  of  the  function  is  CDMREPRT,  the 
name  of  the  application  is  GRCDMREPRT,  the  user  name,  password 
and  role  is  CDM. 

The  following  pages  contain  listings  for: 

BLDXCMP.COM 

LNKXCMP.COM 

BLDCCMP.COM 

LNKCCMP.COM 

BLDRCMP.COM 

LNKRCMP.COM 
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S ' 

V  • 

$  1 

$!  BLDXCMP.COM 

$! 

$! 

$WS:=  WRITE  SYS$OUTPUT 

$DEFINE  IISSGLIB  "CDMDIR: [TOOLS. COMP]GENOLB.OLB" 

$DEFINE  CDMTEMPS  "CDMDIR: [TOOLS . COMP. TEMPS ] " 

$WS  "PRECOMPILE  AND  COMPILE  A  GROUP  OF  PRC'S" 

$WS  " - " 

$  I 

$ INQUIRE  AP  "  NAME  OF  THE  APPLICATION>" 

$  CREATE  ' AP ' . DAT 
$  OPEN/WRITE  NDMLIN  'AP'.IN 
$NEXT: 

$  INQUIRE  PRC  "NAME  OF  PRC  FILE  (C/R  TO  STOP,  LEAVE  .PRC  OFF)" 

$  IF  PRC  .EQS.  ""  THEN  GOTO  INDONE 
$  APPEND  CDMDIR: [TOOLS. COMP] 'PRC .PRC  'AP'.DAT 
$  GOTO  NEXT 
$  INDONE: 

$! 

$!  5/24/88:  FDL  stuff  added  in  because  GENRPD  now  requires  fixed 

$!  length  .DAT  files  since  conversion  to  FIOPS . 

$! 

$  OPEN/WRITE  FDLIN  CDMDIR: [ COM] FIX. FDL 

$  WRITE  FDLIN  "IDENT  ""23-FEB-1988  09:49:43  VAX-"*  1  FDL 


Editor" "" 

$ 

WRITE 

FDLIN 

M  tl 

$ 

WRITE 

FDLIN 

"SYSTEM" 

$ 

WRITE 

FDLIN 

If 

SOURCE 

VAX/ VMS" 

$ 

WRITE 

FDLIN 

M 

$ 

WRITE 

FDLIN 

"FILE" 

$ 

WRITE 

FDLIN 

II 

ALLOCATION 

391" 

$ 

WRITE 

FDLIN 

II 

BEST  TRY  CONTIGUOUS 

yes" 

$ 

WRITE 

FDLIN 

II 

EXTENSION 

39" 

$ 

WRITE 

FDLIN 

II 

ORGANIZATION 

sequential" 

$ 

WRITE 

FDLIN 

II  11 

$ 

WRITE 

FDLIN 

"RECORD" 

$ 

WRITE 

FDLIN 

II 

BLOCK  SPAN 

yes" 

$ 

WRITE 

FDLIN 

II 

CARRIAGE  CONTROL 

carriage_return" 

$ 

WRITE 

FDLIN 

II 

FORMAT 

fixed" 

$ 

WRITE 

FDLIN 

II 

SIZE 

80" 

$ 

CLOSE 

FDLIN 

$  CONVERT/PAD=%O40/FDL=CDMDIR: [COMJFIX.FDL  'AP'.DAT  'AP'.DAT 
$  WRITE  NDMLIN  "CDMXTRCT  VAX  VAX  COBOL  NDML  COBOL  ",AP,".DAT 
",AP,".ERR  ","CDM/CDM","  FD=N" 

$  CLOSE  NDMLIN 

$  OPEN/WRITE  EDIPRC  CDMDIR :[ COM] EDIT . PROC 
$  WRITE  EDIPRC  "S/80/200/WH" 

$  WRITE  EDIPRC  "EXIT" 

$  CLOSE  EDIPRC 

$  EDIT/COMMAND=CDMDIR: [COM] EDIT. PROC  CDMDIR: [COM] FIX. FDL 
$  DEASSIGN  SYS$OUTPUT 

$  CONVERT/PAD=%O40/FDL=CDMDIR: [COM]FIX.FDL  'AP'.IN  'AP'.IN 
$  DELETE  CDMDIR: [COM]FIX. FDL;*,  CDMDIR: [ COM] EDIT . PROC ; * 

$ ! 

$!  INPUTS  TO  PRECOMPILER  ARE  NOW  SET  UP 
$!  GO  AHEAD  AND  RUN  IT: 
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$! 

$  ASSIGN/USER_MODE  SYS$COMMAND  SYS$INPUT 
$  RENAME  'AP'.IN  NDML.DAT 
$  ASSIGN  'AP'.OUT  SYS$OUTPUT 
$  RUNNDML 

$  RENAME  NDML.DAT  'AP'.IN 

$ ! 

$  ALLDONE: 

$  DEASSIGN  SYS$OUTPUT 

$! 

$!  check  the  .out  file  for  errors  in  precompiling 
$! 

$OPEN/READ  EFLE  ' AP ' . OUT 
$ZR:="0" 

$  NERRLOOP: 

$  READ/END_OF  FILE=COMPERR  EFLE  EREC 
$  LENG  =  'F^LENGTH(EREC) ' 

$  UN  =  'F$LOCATE("UNSUCC",EREC) ' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NERRLOOP 

$  UNI  =  'UN'  -  13 

$  UN2  =  ' F$EXTRACT (UNI, 1, EREC) ' 

$  IF  UN2  .EQS.  ZR  THEN  GOTO  NDMLGOOD 

$WS  "THE  PRECOMPILE  OF  ''AP'  HAS  ''UN2'  UNSUCCESSFUL  ROUTINES" 
$WS  "CHECK  THE  ''AP'.ERR  FILE  FOR  ERRORS" 

$GOTO  EXIT 
$COMPERR: 

$WS  "PRECOMPILE  FAILED" 

$GOTO  EXIT 

$I 

$!  the  precompile  was  successful,  compile  the  code 
$ ! 

$  NDMLGOOD: 

$WS  "  " 

$WS  "NDML  PRECOMPILE  SUCCESSFULLY  COMPLETED" 

$WS  "BEGIN  COMPILING  GENERATED  CODE" 

$  DELETE  ' AP ' . DAT ; * 

$  NDMLGDRD: 

$  READ/END_OF_FILE  =  COMPERR  EFLE  EREC 
$  LENG  =  'F$LENGTH(EREC) ' 

$  UN  =  'F$LOCATE("==>  USE",  EREC)' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NDMLGDRD 

$! 

$ASSIGN  'AP'.MSG  SYS$OUTPUT 
$UN1  =  'UN'  +  8 

$NNAM :  =  ' F$EXTRACT (UNI , 3  0 , EREC)  ' 

$CLOSE  EFLE 
$  @'NNAM' 

$DEASSIGN  SYS$OUTPUT 

$WS  "RESULTS  OF  COMPILE  CAN  BE  FOUND  ON  ''AP'.MSG" 

$EXIT: 

$DEFINE  IISSGLIB  "CDMDIR: [TEST]GENOLB.OLB" 
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$! 

$!  LNKXCMP.COM 

$!  THIS  USES  ORACLE  VERSION  5.1 

$! 

$! 

$! 

$DEFINE/NOLOG  TOOLOLB  CDMDIR: [TOOLS . COMP] COMPOLB 
$DEFINE/NOLOG  IISSGLIB  "CDMDIR: [TOOLS . COMP] GENOLB. OLB" 
$DEFINE  CDMTEMPS  "CDMDIR: [TOOLS . COMP. TEMPS ] " 

$if  pi  .eqs.  "N"  then  goto  linkXCMP 
$WS="WRITE  SYS$OUTPUT" 

$  LINK: 

$DEASSIGN  SYS$OUTPUT 
$WS  "  " 

$WS  "Beginning  Generation  of  Rp-Main" 

$LUW="CDMXTRCT" 

$CDM="CDM/CDM" 

$1 

$!  generate  the  rp-main 

$!  NOTE:  this  is  done  automatically  if  you  link 
$1 
$! 

$!  set  up  .dat  file  to  send  to  genrpd 

$! 

$OPEN/WRITE  GENRPD.DAT  GENRPD.DAT 
$WRITE  GENRPD.DAT  LUW,  "  ",  CDM,  "  VAX" 

$CL0SE  GENRPD.DAT 
$  OPEN/WRITE  FDLIN  FIX.FDL 


$ 

WRITE 

FDLIN 

"I DENT 

""23-FEB-1988  09:49:43 

VAX- 11  FDL 

Editor" " " 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"SYSTEM" 

$ 

WRITE 

FDLIN 

II 

SOURCE 

VAX/ VMS" 

$ 

WRITE 

FDLIN 

II  It 

$ 

WRITE 

FDLIN 

"FILE" 

$ 

WRITE 

FDLIN 

II 

ALLOCATION 

3" 

$ 

WRITE 

FDLIN 

II 

BEST  TRY  CONTIGUOUS 

yes" 

$ 

WRITE 

FDLIN 

It 

EXTENSION 

39" 

$ 

WRITE 

FDLIN 

II 

ORGANIZATION 

sequential" 

$ 

WRITE 

FDLIN 

II  It 

$ 

WRITE 

FDLIN 

"RECORD" 

$ 

WRITE 

FDLIN 

II 

BLOCK  SPAN 

yes" 

$ 

WRITE 

FDLIN 

II 

CARRIAGE  CONTROL 

carriage  return 

$ 

WRITE 

FDLIN 

11 

FORMAT 

fixed" 

$ 

WRITE 

FDLIN 

It 

SIZE 

80" 

$ 

CLOSE 

FDLIN 

$  CONVERT/PAD=%040/FDL=FIX  GENRPD.DAT  GENRPD.DAT 
$! 

$ !  now  run  genrpd 
$ ! 

$ASSIGN/USER_MODE  SYS$COMMAND  SYS$INPUT 
$ASSIGN  'LUW'.RPD  SYS$OUTPUT 
$RUNGENRPD 

$DEASSIGN  SYS$OUTPUT 

$DELETE  GENRPD.DAT;*,  FIX.FDL;* 

$! 

$!  now  get  the  needed  information  to  compile  the  rp-main (s) 
$! 
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$ASSIGN  'LUW'.RDCOMP  SYS$OUTPUT 
$GENRPDFLAG  =  0 
$OPEN/READ  EFLE  ' LUW ' . RPD 
$  RDLOOP: 

$READ/END_OF  FILE=ENDMAIN  EFLE  EREC 
$  LENG  =  'F^LENGTH(EREC) ' 

$  DBMS  =  'F^LOCATECFOR  DBMS”,  EREC)' 

$  UN  =  'F$LOCATE( "STORED  ON”,  EREC)' 
$  MN  =  'F$LOCATE( "MODULE”,  EREC)' 

$  DB  =  'F$LOCATE("DATA  BASE”,  EREC)' 
$  RM  =  'F$LOCATE( "REMOTE/”,  EREC)' 


$ 

HST  = 

'F$LOCATE(''RUN 

AT”, 

EREC) 

t 

$ 

IF 

'MN' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVMODNM 

$ 

IF 

'DB' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVDBN 

$ 

IF 

'RM' 

.NES. 

' LENG ' 

THEN 

GOTO 

RMLC 

$ 

IF 

'HST' 

.NES. 

'LENG' 

THEN 

GOTO 

SAVEHST 

$ 

IF 

'DBMS 

'  . NES . 

' LENG ' 

THEN 

GOTO 

SAVEDBMS 

$ 

IF 

'UN' 

.EQS. 

'LENG' 

THEN 

GOTO 

RDLOOP 

$GENRPDFLAG  =  1 
$UN1  =  'UN'  +  16 

$UNEND  =  'F$LOCATE(".",EREC)  -  UNI 
$PL  :=  'F$EXTRACT{UN1,  UNEND,  EREC)' 

$IF  DBMSNM  .EQS.  "ORACLE”  THEN  GOTO  MAINPCC 

$WS  "A  NEW  DBMS  TYPE  MUST  BE  ADDED  TO  THE  MAIN  COMPILE  PART  OF  THIS 
PROCEDURE" 

$GOTO  EXIT 

$! 

$!  get  the  rp-main  mod  name 

$’  SAVMODNM: 

$MN1  =  'MN'  +  7 

$RPMN1  :=  'F$EXTRACT(MN1,  9,  EREC)' 

$LENG  =  'F$LENGTH(RPMN1) ' 

$MN2  =  'F$LOCATE(''ZZZ'',  RPMNl) 

$IF  'MN2'  .EQS.  'LENG'  THEN  MODLOC  =  0 

$IF  'MN2'  .NES.  'LENG'  THEN  MODLOC  =  2 

$RPMN  :=  'F$EXTRACT (MODLOC,  5,  RPMNl) 

$GOTO  RDLOOP 

$! 

$!  get  the  remote/local  status 
$! 

$  RMLC: 

$RM1  =  'RM'  +  13 

$RMSW  :=  'F$EXTRACT(RM1,  1,  EREC)' 

$GOTO  RDLOOP 

$! 

$!  get  the  database  name 

$  I 

$  SAVDBN: 

$DB1  =  'DB'  +  10 

$DBN  :=  'F$EXTRACT(DB1,  30,  EREC)' 

$GOTO  RDLOOP 

$! 

$!  get  the  host  name 
$! 

$  SAVEHST : 

$HST1  =  'HST'  +  7 

$HSTNM  :=  'F$EXTRACT(HST1,  3,  EREC)' 

$GOTO  RDLOOP 
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$! 

$!  get  the  dbms  name 
$! 

$  SAVEDBMS : 

$DBMS1  =  'DBMS'  +  9 

$DBMSNM  :=  ' F$EXTRACT (DBMSl ,  30,  EREC) 

$GOTO  RDLOOP 

$! 

$1 

$!  oracle  orecompile  the  rp-main  (if  needed) 

$  I 

$*  MAINPCC: 

$PCC  INAME= ' PL ' . TMP  LNAME= ' PL ' . ERR  USERID='CDM'  - 
ONAME= ' PL ' . COB  INCLUDE=SYS$ORACLE:  HOST=COB74  MAXLITERAL=160 
REBIND=YES 

$ON  ERROR  THEN  WS  "ORACLE  ERROR  IN  RP-MAIN  ''PL '.TMP" 

$ON  ERROR  THEN  GOTO  EXIT 

$COBOL/ANSI_FORMAT/CHECK=ALL/COPY_LIST/CROSS_REFERENCE/OBJECT= ' PL' . 
OBJ  - 


/FIPS=74/NOLIST/CHECK=ALL/STANDARD= (SYNTAX) /DEBUG=ALL  'PL' .COB 
$ON  ERROR  THEN  WS  "COBOL  ERROR  IN  RP-MAIN  ''PL '.TMP" 

$ON  ERROR  THEN  GOTO  EXIT 
$ DELETE  'PL '.COB;* 

$DELETE  'PL '.ERR;* 

$! 

$!  Compile  the  rpmain.c 
$! 

$vcc/debug/NOLIST/show= ( include) /standard=portable  - 

/noopt/OBJECT=CDMDIR : [ TOOLS . COMP ] RPMAIN . OBJ/DEFINE=VAX 
RPMAIN.C 


$delete  rpmain.c;* 

$GOTO  RDLOOP 

$I 

$!  done  generating  rp-main 
$ ! 

$  ENDMAIN; 

$CLOSE  EFLE 
$DEASSIGN  SYS$OUTPUT 

$IF  GENRPDFLAG  .EQ.  0  THEN  GOTO  MAINERR 
$WS  "  " 

$WS  "GENERATION  OF  REQUEST  PROCESSOR  MAIN  COMPLETE" 

$GOTO  STARTLINK 

$! 

$!  there  was  an  error  in  generating  the  rp-main 
$  J 

$  MAINERR; 

$WS  "THE  GENRPD  HAD  ERRORS.  EXAMINE  ''LUW'.RPD" 

$GOTO  EXIT 
$STARTLINK: 

$ DELETE  ' LUW ' . RPD ; * 

$ DELETE  ' LUW ' . RDCOMP ; * 

$DELETE  CMDIR : [ RUNAREA ] CDMXTRCT . EXE ; * 

$WRITE  SYS$OUTPUT  "  -  LINKING  CDMXTRCT.EXE  " 

$ASSIGN  CDMXTRCT. LINK  SYS$OUTPUT 

$ ! 

$!  inquire  p5  "ENTER  TWO  LETTER  NTM  DIRECTORY  PREFIX  " 

$!  inquire  p6  "ENTER  NTM  CLUSTER  FOR  THIS  RP  (TIV  OR  UIV)  " 
$  1 

$P5  =  "GR" 
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$P6  =  ''UIV 
$P1  =  ''CDMXTRCT” 

$i  NTMTAB.COM 

$i  15-APR-87 

$!  M.  DENMAN 

$i  UPDATE  NTM  TABLES  APITBL.DAT,  APTTBL.DAT 

$! 

$ ’ FLAG=0 
$  P7  =P5+P1 

$  OPEN/READ  APITBL.DAT  CMDIR: [RUNAREA] APITBL. DAT 
$  Rri : 

$  READ/END_OF_FILE=CHK  APITBL.DAT  ENTRY 
$  RPND=F$EXTRACT(0, 10, ENTRY) 

$  IF  RPND  .NES.  P7  THEN  GOTO  RDl 
$  FLAG=1 
$  CHK: 

$  CLOSE  APITBL.DAT 
$  IF  FLAG  .NES.  0  THEN  GOTO  NOUPD 
$  GOTO  UPD 
$  NOUPD; 

$  WRITE  SYS$OUTPUT  '•  " 

$  WRITE  SYS$OUTPUT  "RP  MAIN  ALREADY  IN  NTM  TABLES" 

$  WRITE  SYS$OUTPUT  "  " 

$  GOTO  LINKXCMP 
$  UPD; 

$  RPAPI=P7+P6+"1" 

$  RPAPT=P1+"9999010120001130N0" 

$  OPEN/ APPEND  APITBL.DAT  CMDIR; [RUNAREA] APITBL. DAT 
$  OPEN/APPEND  APTTBL.DAT  CMDIR; [RUNAREA] APTTBL. DAT 
$  WRITE  APITBL.DAT  RPAPI 
$  WRITE  APTTBL.DAT  RPAPT 
$  CLOSE  APITBL.DAT 
$  CLOSE  APTTBL.DAT 
$  WRITE  SYS$OUTPUT  "  " 

$  WRITE  SYS$OUTPUT  "NTM  TABLES  UPDATED  WITH  RP  " , PI 
$  WRITE  SYS$OUTPUT  "  " 

$ ! 

$iDEFINE  CDMROLB  "CDMDIR; [CDMR]CDMROLB" 

$LINKXCMP; 

$@SYS$ORACLE;LFOR  CMDIR; [RUNAREA] CDMXTRCT  - 
CDMDIR ; [ TOOLS . COMP ] CXMAIN . OBJ , - 
CDMDIR ; [ TOOLS . COMP ] RPMAIN . OBJ , - 
'PL‘ .OBJ,- 

CDMDIR ; [ COM] CDMI/OPTIONS , - 
SYS$ORACLE;SQLLIB/LIB,- 
CDMDIR; [COM]CDMUI.OPT/OPT,- 
CDMDIR; [COM] CDMNTM. OPT/OPTIONS  N 

$ DELETE  CDMXTRCT . LINK ; * ,  RPMAIN . OBJ ; * ,  ' PL ' . OBJ ; * 

$WRITE  SYS$OUTPUT  "LINKING  COMPLETED" 

$EXIT ; 

$DEFINE/NOLOG  IISSGLIB  "CDMDIR; [TEST] GENOLB. OLB" 

$ DEASSIGN  TOOLOLB 

$! 


3-9 


UM  620341431 
30  September  1990 


$! 

$1 

$! 

BLDCCMP.COM 

$! 

$! 

$WS:  = 

WRITE  SYS$OUTPUT 

$DEFINE  IISSGLIB  "CDMDIR: [ TOOLS . COMP] GENOLB. OLB" 

$DEFINE  CDMTEMPS  "CDMDIR: [TOOLS . COMP. TEMPS ] " 

$WS  "PRECOMPILE  AND  COMPILE  A  GROUP  OF  PRC'S" 

$WS  " - " 

$  1 

$iNQUIRE  AP  "  NAME  OF  THE  APPLICATION>" 

$  CREATE  ' AP ' . DAT 
$  OPEN/WRITE  NDMLIN  'AP'.IN 
$NEXT: 

$  INQUIRE  PRC  "NAME  OF  PRC  FILE  (C/R  TO  STOP,  LEAVE  .PRC  OFF)" 

$  IF  PRC  .EQS.  ""  THEN  GOTO  INDONE 
$  APPEND  CDMDIR: [TOOLS. COMP] 'PRC .PRC  'AP'.DAT 
$  GOTO  NEXT 
$  INDONE: 

$1 

$!  5/24/88:  FDL  stuff  added  in  because  GENRPD  now  requires  fixed 

$!  length  .DAT  files  since  conversion  to  FIOPS. 

$ ! 

$  OPEN/WRITE  FDLIN  CDMDIR: [COM] FIX. FDL 


$ 

WRITE 

FDLIN 

•'I  DENT 

""23-FEB-1988  09:49:43 

VAX-11  FDL 

Editor""" 

$ 

WRITE 

FDLIN 

tl  M 

$ 

WRITE 

FDLIN 

•'SYSTEM'* 

$ 

WRITE 

FDLIN 

If 

SOURCE 

VAX/ VMS" 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"FILE" 

$ 

WRITE 

FDLIN 

II 

ALLOCATION 

391" 

$ 

WRITE 

FDLIN 

ft 

BEST  TRY  CONTIGUOUS 

yes" 

$ 

WRITE 

FDLIN 

II 

EXTENSION 

39" 

$ 

WRITE 

FDLIN 

II 

ORGANIZATION 

sequential" 

$ 

WRITE 

FDLIN 

II  It 

$ 

WRITE 

FDLIN 

"RECORD" 

$ 

WRITE 

FDLIN 

If 

BLOCK  SPAN 

yes" 

$ 

WRITE 

FDLIN 

II 

CARRIAGE  CONTROL 

carriage_return" 

$ 

WRITE 

FDLIN 

II 

FORMAT 

fixed" 

$ 

WRITE 

FDLIN 

II 

SIZE 

80" 

$ 

CLOSE 

FDLIN 

$  CONVERT/PAD=%O40/FDL=CDMDIR: [COM]FIX.FDL  'AP'.DAT  'AP'.DAT 
$  WRITE  NDMLIN  "CDMCMPAR  VAX  VAX  COBOL  NDML  COBOL","  ",AP,".DAT 
",AP,".ERR  ","CDM/CDM","  FD=Y" 

$  OPEN/WRITE  EDIPRC  CDMDIR: [COM] EDIT. PROC 
$  WRITE  EDIPRC  "S/80/200/WH" 

$  WRITE  EDIPRC  "EXIT" 

$  CLOSE  EDIPRC 
$  CLOSE  NDMLIN 

$  EDIT/COMMAND=CDMDIR: [COM] EDIT. PROC  CDMDIR: [COM] FIX. FDL 
S  DFA'^^TON  9Yc:9ntITPtTT 

$  CONVERT/PAD=%O40/FDL=CDMDIR: [COM]FIX.FDL  'AP'.IN  'AP'.IN 
$  DELETE  CDMDIR: [COM]FIX. FDL;*,  CDMDIR: [ COM] EDIT . PROC ; * 

$! 

$!  INPUTS  TO  PRECOMPILER  ARE  NOW  SET  UP 
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$I  GO  AHEAD  AND  RUN  IT: 

$’  ASSIGN/USER_MODE  SYS$COMMAND  SYS$INPUT 
$  RENAME  'AP'.IN  NDML.DAT 
$  ASSIGN  'AP'.OUT  SYS$OUTPUT 
$  RUN  CMDIR: [RUNAREA]NDML 
$  RENAME  NDML.DAT  'AP'.IN 
$  1 

$  ALLDONE: 

$  DEASSIGN  SYS$OUTPUT 

$! 

$!  check  the  .out  file  for  errors  in  precompiling 
$! 

$OPEN/READ  EFLE  'AP'.OUT 
$ZR:="0" 

$  NERRLOOP: 

$  READ/END_OF  FILE=COMPERR  EFLE  EREC 
$  LENG  =  'F^LENGTH(EREC) ' 

$  UN  =  'F$LOCATE("UNSUCC",EREC) ' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NERRLOOP 

$  UNI  =  'UN'  -  13 

$  UN2  =  ' F$EXTRACT (UNI, 1, EREC) ' 

$  IF  UN2  .EQS.  ZR  THEN  GOTO  NDMLGOOD 

$WS  "THE  PRECOMPILE  OF  ' 'AP'  HAS  ''UN2'  UNSUCCESSFUL  ROUTINES" 
$WS  "CHECK  THE  ''AP'.ERR  FILE  FOR  ERRORS" 

$GOTO  EXIT 
$COMPERR: 

$WS  "PRECOMPILE  FAILED" 

$GOTO  EXIT 

$! 

$!  the  precompile  was  successful,  compile  the  code 
$! 

$  NDMLGOOD: 

$WS  "  " 

$WS  "NDML  PRECOMPILE  SUCCESSFULLY  COMPLETED" 

$WS  "BEGIN  COMPILING  GENERATED  CODE" 

$DELETE  'AP'.DAT;* 

$  NDMLGDRD: 

$  READ/END  OF_FILE  =  COMPERR  EFLE  EREC 
$  LENG  =  ■^F$LENGTH(EREC)  ' 

$  UN  =  'F$LOCATE("==>  USE",  EREC)' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NDMLGDRD 

$! 

$ASSIGN  'AP'.MSG  SYS$OUTPUT 
$UN1  =  'UN'  +  8 

$NNAM:='F$EXTRACT(UN1, 30,EREC) ' 

$CLOSE  EFLE 
$  @'NNAM' 

$DEASSIGN  SYS$OUTPUT 

$WS  "RESULTS  OF  COMPILE  CAN  BE  FOUND  ON  ''AP'.MSG" 

$EXIT : 

$DEFINE  IISSGLIB  "CDMDIR: [TEST]GENOLB. OLB" 
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$1 

$!  LNKCCMP.COM 

$!  THIS  USES  ORACLE  VERSION  5.1 

$! 

$! 

$! 

$DEFINE/NOLOG  TOOLOLB  CDMDIR: [TOOLS . COMP] COMPOLB 
$DEFINE/NOLOG  IISSGLIB  "CDMDIR: [TOOLS . COMP] GENOLB. OLB" 
$DEFINE  CDMTEMPS  "CDMDIR: [TOOLS. COMP. TEMPS ] " 

$if  pi  .eqs.  "N"  then  goto  linkCCMP 
$WS="WRITE  SYS$OUTPUT" 

$  LINK: 

$DEASSIGN  SYS$OUTPUT 
$WS  "  " 

$WS  "Beginning  Generation  of  Rp-Main" 

$LUW="CDMCMPAR" 

$CDM="CDM/CDM" 

$! 

$!  generate  the  rp-main 

$!  NOTE:  this  is  done  automatically  if  you  link 

$! 

$! 

$!  set  up  .dat  file  to  send  to  genrpd 

$ ! 

$OPEN/WRITE  GENRPD.DAT  GENRPD.DAT 
$WRITE  GENRPD.DAT  LUW,  "  ",  CDM,  "  VAX" 

$CLOSE  GENRPD.DAT 
$  OPEN/WRITE  FDLIN  FIX.FDL 

$  WRITE  FDLIN  "IDENT  ""23~FEB-1988  09:49:43  VAX-11  FDL 
Editor""" 


$ 

WRITE 

FDLIN 

ft  II 

$ 

WRITE 

FDLIN 

"SYSTEM" 

$ 

WRITE 

FDLIN 

II 

SOURCE 

VAX/ VMS" 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"FILE" 

$ 

WRITE 

FDLIN 

II 

ALLOCATION 

3" 

$ 

WRITE 

FDLIN 

II 

BEST  TRY  CONTIGUOUS 

yes" 

$ 

WRITE 

FDLIN 

II 

EXTENSION 

39" 

$ 

WRITE 

FDLIN 

II 

ORGANIZATION 

sequential" 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"RECORD" 

$ 

WRITE 

FDLIN 

II 

BLOCK  SPAN 

yes" 

$ 

WRITE 

FDLIN 

II 

CARRIAGE  CONTROL 

carriage_return" 

$ 

WRITE 

FDLIN 

II 

FORMAT 

fixed" 

$ 

WRITE 

FDLIN 

II 

SIZE 

80" 

$ 

CLOSE 

FDLIN 

$  CONVERT/PAD=%O40/FDL=FIX  GENRPD.DAT  GENRPD.DAT 

$I 

$!  now  run  genrpd 

$ ! 

$ASSIGN/USER  MODE  SYS$COMMAND  SYS$INPUT 
$ASSIGN  'LUW'^.RPD  SYS$OUTPUT 
$RUNGENRPD 

$DEASSIGN  SYS$OUTPUT 

$DELETE  GENRPD.DAT;*,  FIX.FDL;* 

$! 

$!  now  get  the  needed  information  to  compile  the  rp-main (s) 
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$ ! 

$ASSIGN  'LUW' .RDCOMP  SYS$OUTPUT 
$GENRPDFLAG  =  0 
$OPEN/READ  EFLE  ' LUW ' . RPD 
$  RDLOOP: 

$READ/END_OF  FILE=ENDMAIN  EFLE  EREC 
$  LENG  =  'F^LENGTH(EREC) ' 

$  DBMS  =  'F$LOCATE(''FOR  DBMS",  EREC)' 

$  UN  =  'F$LOCATE( "STORED  ON",  EREC)' 
$  MN  =  'F$LOCATE( "MODULE",  EREC)' 

$  DB  =  'F$LOCATE(''DATA  BASE",  EREC)' 
$  RM  =  'F$LOCATE( "REMOTE/",  EREC)' 

$  HST  =  'F$LOCATE("RUN  AT",  EREC)' 


$ 

IF 

'MN' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVMODNM 

$ 

IF 

'DB' 

.NES. 

'LENG' 

THEN 

GOTO 

SAVDBN 

$ 

IF 

'RM' 

.NES. 

'LENG' 

THEN 

GOTO 

RMLC 

$ 

IF 

'HST' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVEHST 

$ 

IF 

' DBMS ' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVE DBMS 

$ 

IF 

'UN' 

.EQS. 

'LENG' 

THEN 

GOTO 

RDLOOP 

$GENRPDFLAG  =  1 
$UN1  =  'UN'  +  16 

$UNEND  =  'F$LOCATE(''.'',EREC)  -  UNI 
$PL  :=  'F$EXTRACT(UN1,  UNEND,  EREC)' 

$IF  DBMSNM  .EQS.  "ORACLE"  THEN  GOTO  MAINPCC 

$WS  "A  NEW  DBMS  TYPE  MUST  BE  ADDED  TO  THE  MAIN  COMPILE  PART  OF  THIS 
PROCEDURE" 

$GOTO  EXIT 

$I 

$!  get  the  rp-main  mod  name 

$*  SAVMODNM: 

$MN1  =  'MN'  +  7 

$RPMN1  :=  'F$EXTRACT(MN1,  10,  EREC)' 

$LENG  =  'F$LENGTH(RPMN1) ' 

$MN2  =  'F$LOCATE("ZZZ'',  RPMNl) 

$IF  'MN2'  .EQS.  'LENG'  THEN  MODLOC  =  0 

$IF  'MN2'  .NES.  'LENG'  THEN  MODLOC  =  2 

$RPMN  :=  'F$EXTRACT (MODLOC,  5,  RPMNl) 

$GOTO  RDLOOP 
$! 

$!  get  the  remote/local  status 

$! 

$  RMLC: 

$RM1  =  'RM'  +  13 

$RMSW  :=  'F$EXTRACT(RM1,  1,  EREC)' 

$GOTO  RDLOOP 

$! 

$!  get  the  database  name 

$ ! 

$  SAVDBN : 

$DB1  =  'DB'  +  10 

$DBN  :=  ' F$ EXTRACT (DBl,  30,  EREC)' 

$GOTO  RDLOOP 

$! 

$!  get  the  host  name 

$! 

$  SAVEHST: 

$HST1  =  'HST'  +  7 

$HSTNM  :=  ' F$EXTRACT (HSTl ,  3,  EREC)' 


3-13 


UM  620341431 
30  September  1990 


$GOTO  RDLOOP 

$! 

$!  get  the  dbms  name 

$! 

$  SAVEDBMS : 

$DBMS1  =  'DBMS'  +  9 

$DBMSNM  :=  ' F$EXTRACT(DBMS1,  30,  EREC) 

$GOTO  RDLOOP 

$! 

$! 

$!  oracle  precompile  the  rp-main  (if  needed) 

$! 

$  MAINPCC: 

$PCC  INAME='PL' .TMP  LNAME= ' PL ' . ERR  USERID='CDM'  - 
ONAME= ' PL ' . COB  INCLUDE=SYS$ORACLE :  HOST=COB74  MAXLITERAL=160 
REBIND=YES 

$ON  ERROR  THEN  WS  "ORACLE  ERROR  IN  RP-MAIN  ''PL '.TMP" 

$ON  ERROR  THEN  GOTO  EXIT 

$COBOL/ANSI_FORMAT/CHECK=ALL/COPY_LIST/CROSS_REFERENCE/OBJECT= ' PL' . 
OBJ  - 

/FIPS=74/NOLIST/CHECK=ALL/STANDARD= (SYNTAX) /DEBUG=ALL  'PL' .COB 
$ON  ERROR  THEN  WS  "COBOL  ERROR  IN  RP-MAIN  ''PL '.TMP" 

$ON  ERROR  THEN  GOTO  EXIT 
$DELETE  'PL '.COB;* 

$DELETE  'PL '.ERR;* 

$! 

$!  Compile  the  rpmain.c 

$! 

$vcc/debug/list=RPMAIN. lis/show= (include) /standard=portable  - 
/noopt/OBJECT=CDMDIR : [ TOOLS . COMP ] RPMAIN . OBJ/DEFINE=VAX 
RPMAIN.C 

$delete  rpmain.c;*,  rpmain.lis;* 

$GOTO  RDLOOP 

$! 

$!  done  generating  rp-main 
$ ! 

$  ENDMAIN; 

$CLOSE  EFLE 
$DEASSIGN  SYS$OUTPUT 

$IF  GENRPDFLAG  .EQ.  0  THEN  GOTO  MAINERR 
$WS  "  " 

$WS  "GENERATION  OF  REQUEST  PROCESSOR  MAIN  COMPLETE" 

$GOTO  STARTLINK 

$! 

$!  there  was  an  error  in  generating  the  rp-main 

$! 

$  MAINERR: 

$WS  "THE  GENRPD  HAD  ERRORS.  EXAMINE  ''LUW'.RPD" 

$GOTO  EXIT 
$ STARTLINK: 

$DELETE  ' LUW ' . RPD ; * 

$ DELETE  ' LUW ' . RDCOMP ; * 

$DELETE  CMDIR: [RUNAREA] CDMCCMPZ.EXE;* 

$WRITE  SYS$OUTPUT  "  -  LINKING  CDMCCMPZ.EXE  " 

$ASSIGN  CDMCCMPZ . LINK  SYS$OUTPUT 

$! 

$!  inquire  p5  "ENTER  TWO  LETTER  NTM  DIRECTORY  PREFIX  " 

$!  inquire  p6  "ENTER  NTM  CLUSTER  FOR  THIS  RP  (TIV  OR  UIV)  " 

$! 
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$P5  =  "GR" 

$P6  =  "UIV" 

$P1  =  "CDMCCMP" 

$! 

$!  NTMTAB.COM 
$! 

$ ! 

$!  UPDATE  NTM  TABLES  APITBL.DAT,  APTTBL.DAT 

$! 

$ ! 

$  FLAG=0 
$  P7=P5+P1 

$  OPEN/READ  APITBL.DAT  CDMDIR: [RUNAREA] APITBL. DAT 
$  RDl: 

$  READ/END_OF_FILE=CHK  APITBL.DAT  ENTRY 
$  RPND=F$EXTRACT(0, 10, ENTRY) 

$  IF  RPND  .NES.  P7  THEN  GOTO  RDl 
$  FLAG=1 
$  CHK: 

$  CLOSE  APITBL.DAT 
$  IF  FLAG  .NES.  0  THEN  GOTO  NOUPD 
$  GOTO  UPD 
$  NOUPD: 

$  WRITE  SYS$OUTPUT  "  " 

$  WRITE  SYS$OUTPUT  "RP  MAIN  ” , PI , "  ALREADY  IN  NTM  TABLES” 
$  WRITE  SYS$OUTPUT  ”  ” 

$  GOTO  LINKCCMP 
$  UPD: 

$  RPAPI=P7+”Z”+P6+”1” 

$  RPAPT=P1+"Z9999010120001130N0” 

$  OPEN/APPEND  APITBL.DAT  CDMDIR: [RUNAREA] APITBL. DAT 
$  OPEN/APPEND  APTTBL.DAT  CDMDIR: [RUNAREA] APTTBL. DAT 
$  WRITE  APITBL.DAT  RPAPI 
$  WRITE  APTTBL.DAT  RPAPT 
$  CLOSE  APITBL.DAT 
$  CLOSE  APTTBL.DAT 
$  WRITE  SYS$OUTPUT  "  ” 

$  WRITE  SYS$OUTPUT  "NTM  TABLES  UPDATED  WITH  RP  " , PI 
$  WRITE  SYS$OUTPUT  "  " 

$ ! 

$! DEFINE  CDMROLB  "CDMDIR: [CDMR]CDMROLB" 

$LINKCCMP: 

$§SYS$ORACLE:LFOR  CMDIR: [RUNAREA] CDMCCMPZ  - 
CDMDIR: [TOOLS. COMP]CCMAIN. OBJ, - 
CDMDIR: [TOOLS . COMP] RPMAIN. OBJ, - 
•PL' .OBJ,- 

CDMDIR: [ COM] CDMI/OPTIONS , - 
SYS  $ORACLE : SQLLI B/ LI B , - 
CDMDIR: [COM]CDMUI.OPT/OPT,- 
CDMDIR: [COM] CDMNTM. OPT/OPTIONS  N 
$DEASSIGN  SYS$OUTPUT 

$DELETE  CDMCCMPZ. LINK;*,  RPMAIN . OBJ ;* ,  'PL '.OBJ;* 

$WRITE  SYS$OUTPUT  "LINKING  COMPLETED" 

$EXIT: 

$DEFINE/NOLOG  IISSGLIB  "CDMDIR: [TEST] GENOLB.OLB" 

$DEASSIGN  TOOLOLB 
$! 
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$  1 

$!  BLDRCMP.COM 

$l 
$  I 

$DEFINE  IISSGLIB  "CDMDIR: [TOOLS. COMP]GENOLB.OLB" 

$DEFINE  CDMTEMPS  "CDMDIR: [TOOLS . COMP. TEMPS ] " 

$WS:=  WRITE  SYS$OUTPUT 

$J 

$  I 

$WS  "  GAP  AND  PRECOMPILE'' 

$WS  "  " 

$  GP: 

$WS  "  " 

$  1 

$INQUIRE  FIL  "Enter  Name  Of  FDL  File  (Leave  . FDL  Off)" 
$INQUIRE  CDM  "Enter  Your  CDM  Username/Password" 

$LUW  =  "CDMREPRT" 

$HOST  =  "VAX" 

$DEL  =  "Y" 

$! 

$ CREATE  'LUW'.DAT 
$  GAP: 

$! 

$WS  "  " 

$WS  "BEGINNING  GAP" 

$J 

$l 

$! 

$!  Get  the  application  name  out  of  the  file  to  be  gapped. 

$  I 

$OPEN/READ  FILE  CDMDIR: [TOOLS . COMP] ’ FIL' . FDL 
$  READFDL: 

$READ/END_OF_FILE=FDLERR  FILE  REC 
$REC  =  F$EDIT(REC,  "UPCASE") 

$LEN  =  F$LENGTH(REC) 

$LOCl  =  F$LOCATE( "APPLICATION",  REC) 

$FLAG  =  "A" 

$LOC  =  'LOCI'  +  10 

$IF  'LOCI'  .NES.  'LEN'  THEN  GOTO  ENDREAD 
$LOCl  =  F$LOCATE( "REPORT",  REC) 

$FLAG  =  "R" 

$LOC  =  'LOCI'  +  5 

$  IF  'LOCI'  .EQS.  'LEN'  THEN  GOTO  READFDL 
$ENDREAD: 

$CLOSE  FILE 
$FILELOOP: 

$LOC  =  'LOC  +  1 

$TEMP  =  F$EXTRACT(LOC,  1,  REC) 

$IF  TEMP  .EQS.  "  "  THEN  GOTO  FILELOOP 
$APNAME  =  F$EXTRACT(LOC,  LEN,  REC) 

$IF  FLAG  .EQS.  "A"  THEN  END  =  F$LOCATE("  ",  APNAME) 

$IF  FLAG  .EQS.  "R"  THEN  END  =  F$LOCATE ( " ( " ,  APNAME) 

$AP  =  F$EXTRACT(LOC,  END,  REC) 

$! 

$!  This  trim  is  done  in  case  the  user  put  spaces  between  the 
report  name 

$!  and  the  parameter  form 
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$  1 

$iF  FLAG  .EQS.  ''R''  THEN  AP  =  F$EDIT(AP,  "TRIM”) 

$! 

$!  Create  the  .dat  file  to  send  to  gap 
$6pEN/WRITE  ADLIN  gap. DAT 

$WRITE  ADLIN  "CDMDIR: [TOOLS . COMP] " ,  FIL,  " . FDL" 

$WRITE  ADLIN  CDM 
$CLOSE  ADLIN 
$! 

$ !  Run  gap 

$  1 

$ASSIGN  'AP'.OUT  SYS$OUTPUT 
$ASSIGN  GAP. DAT  SYS$INPUT 
$ASSIGN  'AP'.ERR  SYS$ERROR 
$GAP1 

$DEASSIGN  SYS$INPUT 
$DEA‘:SIGN  SYS$ERROR 
$DEASSIGN  SYS$OUTPUT 
$! 

$!  Read  the  error  file  from  gapping 

$! 

$OPEN/READ  EFLE  'AP'.ERR 
$ERSW:="N" 

$  LOOPERR: 

$  READ/END_OF_FILE=ENDERR  EFLE  EREC 

$  LENG  =  'F$LENGTH(EREC) ' 

$  ERIN  =  ' F$LOCATE(" ERR", EREC) • 

$  IF  'ERIN'  .EQS.  'LENG'  THEN  GOTO  LOOPERR 
$  ERSW;="Y" 

$  ENDERR: 

$CLOSE  EFLE 

$IF  ERSW  .EQS.  "Y"  THEN  GOTO  GAPERR 
$! DELETE  'AP'.ERR;* 

$ ! DELETE  ' AP ' . OUT ; * 

$! DELETE  GAP. DAT;* 

$WS  "  " 

$WS  "GAP  SUCCESSFULLY  COMPLETED" 

$! 

$!  C  compile 

$! 

$! 

$!  TRUNCATE  THE  APNAME  TO  6  CHARACTERS  BECAUSE  GAP  DOES. 

$! 

$SHORTAP  =  F$EXTRACT(0,  6,  AP) 

$ASSIGN  ' SHORT AP '. OUT  SYS$OUTPUT 

$vcc/debug/l ist= ' shortap ' . 1 is/standard=portable/noopt  ' SHORTAP ' 
$DEASSIGN  SYS$OUTPUT 

$ON  ERROR  THEN  WS  "ERROR  IN  GENERATED  C  PROGRAM" 

$  ON  ERROR  THEN  GOTO  EXIT 

$LIB/REPLACE/NOGLOBAL  IISSGLIB  ' SHORTAP '. OBJ 
$ ! DELETE  ' SHORTAP ' . OUT ; * 

$ DELETE  ' SHORTAP ' . OBJ ; * 

$DELETE  ' SHORTAP ' . LIS ; * 

$ PURGE  ' SHORTAP ' . C 
$  PURGE  ' SHORTAP ' . PRC 
$WS  "  " 

$WS  "C  PROGRAM  SUCCESSFULLY  COMPILED  AND  INSERTED  INTO  IISSOLIB" 

$! 
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$! 

$! 

$! 

$!  set  up  prc  file  to  precompile 

$! 

$APPEND  ' SHORTAP ' . PRC  ' LUW ' . DAT 
$ DELETE  ' SHORTAP ' . PRC ; * 

$GOTO  PRECOMPILE 

$! 

$  GAPERRt 

$WS  "  YOU  HAVE  ERRORS  IN  GAP" 

$WS  "  PLEASE  CHECK  ''AP'.ERR  FOR  MESSAGES" 

$GOTO  EXIT 
$  FDLERR: 

$WS  "  " 

$WS  "THE  WORD  ' APPLICATION '/' REPORT •  WAS  NOT  FOUND" 

$WS  "IN  YOUR  FDL  FILE.  ONE  OF  THESE  MUST  EXIST  IN  THE  FILE." 

$GOTO  EXIT 

$! 

$!  This  section  of  the  proc  is  performed  if  you  want  to  precompile 

$ ! 

$  PRECOMPILE: 

$WS  "  " 

$WS  "Beginning  Precompile  " 

$! 

$!  set  up  .dat  file  to  send  to  the  precompiler 

$! 

$! 

$!  5/24/88:  FDL  stuff  added  in  because  GENRPD  now  requires  fixed 

$!  length  .DAT  fil ^s  since  conversion  to  FIOPS. 

$  1 

$  OPEN/WRITE  FDLIN  CDMDIR: [COM] FIX. FDL 

$  WRITE  FDLIN  "IDENT  ""23-FEB-1988  09:49:43  VAX-11  FDL 


Editor""" 

$ 

WRITE 

FDLIN 

tl  II 

$ 

WRITE 

FDLIN 

"SYSTEM" 

$ 

WRITE 

FDLIN 

II 

SOURCE 

VAX/ VMS" 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"FILE" 

$ 

WRITE 

FDLIN 

II 

ALLOCATION 

391" 

$ 

WRITE 

FDLIN 

II 

BEST  TRY  CONTIGUOUS 

yes" 

$ 

WRITE 

FDLIN 

It 

EXTENSION 

39" 

$ 

WRITE 

FDLIN 

II 

ORGANIZATION 

sequential" 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"RECORD" 

$ 

WRITE 

FDLIN 

II 

BLOCK  SPAN 

yes" 

$ 

WRITE 

FDLIN 

II 

CARRIAGE  CONTROL 

car riage_re turn 
fixed" 

$ 

WRITE 

FDLIN 

II 

FORMAT 

$ 

WRITE 

FDLIN 

II 

SIZE 

80" 

$ 

CLOSE 

FDLIN 

$  CONVERT/PAD=%O40/FDL=CDMDIR: [COMJFIX.FDL  ' LUW ' . DAT  'LUW'. DAT 
$  OPEN/WRITE  NDMLIN  NDML.DAT 

$  WRITE  NDMLIN  LUW,  "  VAX  VAX  COBOL  NDML  COBOL","  ", LUW, ".DAT 
", LUW, ".ERR  ", "CDM/CDM", "  FD=Y" 

$  CLOSE  NDMLIN 

$  OPEN/WRITE  EDIPRC  CDMDIR: [COM] EDIT. PROC 
$  WRITE  EDIPRC  "S/80/200/WH" 

$  WRITE  EDIPRC  "EXIT" 

$  CLOSE  EDIPRC 
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$  EDIT/ COMMAND=CDMDIR: [COM] EDIT. PROC  CDMDIR: [ COM] FIX . FDL 
$  DEASSIGN  SYS$OUTPUT 

$  CONVERT/PAD=%O40/FDL=CDMDIR: [COM]FIX.FDL  NDML.DAT  NDML.DAT 
$  DELETE  CDMDIR: [COM]FIX. FDL;*,  CDMDIR: [COM] EDIT. PROC ; * 

$  1 

$i  INPUTS  TO  PRECOMPILER  ARE  NOW  SET  UP 
$!  GO  AHEAD  AND  RUN  IT: 

$ ! 

$’  ASSIGN/USER_MODE  SYS$COMMAND  SYS$INPUT 
$  ASSIGN  'LUW'.OUT  SYS$OUTPUT 
$  RUN  CMDIR: [RUNAREA]NDML 

$  DEASSIGN  SYS$OUTPUT 

$! 

$I  check  the  .out  file  for  errors  in  precompiling 
$ ! 

$  OPEN/READ  EFLE  'LUW'.OUT 
$  ZR:="0" 

$  NERRLOOP: 

$  READ/END_OF  FILE=COMPERR  EFLE  EREC 
$  LENG  =  'F?LENGTH(EREC) ' 

$  UN  =  'F$LOCATE("UNSUCC",EREC) ' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NERRLOOP 

$  UNI  =  'UN'  -  13 

$  UN2  =  ' F$EXTRACT (UNI, 1, EREC) ' 

$  IF  UN2  .EQS.  ZR  THEN  GOTO  NDMLGOOD 

$WS  "THE  PRECOMPILE  OF  ''LUW'  HAS  ''UN2'  UNSUCCESSFUL  ROUTINES" 
$WS  "CHECK  THE  ''LUW '.ERR  FILE  FOR  ERRORS" 

$GOTO  EXIT 

$! 

$!  the  precompile  was  successful,  compile  the  code 
$  1 

$  NDMLGOOD: 

$WS  "  " 

$WS  "NDML  PRECOMPILE  SUCCLSSFULli!  COMPLETED" 

$  NDMLGDRD: 

$  READ/END_0F_FILE  =  COMPERR  EFLE  EREC 
$  LE»'G  =  'F$LENGTH(EREC)  ' 

$  UN  =  'F$LOCATE("==>  USE",  EREC)' 

$  IF  'UN'  .EQ3.  'LENG'  THEN  GOTO  NDMLGDRD 

$ ! 

$ASSIGN  'LUW '.MSG  SYS$OUTPUT 
$UN1  =  'UN'  +  8 

$NNAM:='F$EXTRACT(UN1,30,EREC) ' 

$CLOSE  EFLE 
$  @'NNAM' 

$! 

$DEASSIGN  SYS$OUTPUT 

$WS  "RESULTS  OF  COMPILE  CAN  BE  FOUND  ON  ''LUW '.MSG" 

$  EXIT: 

$DEFINE  IISSGLIB  "CDMDIR: [TEST]GENOLB.OLB 
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$ ! 

$!  LNKRCMP.COM 

$!  THIS  USES  ORACLE  VERSION  5.1 

$! 

$! 

$ ! 

$DEFINE/NOLOG  TOOLOLB  CDMDIR: [TOOLS . COMP] COMPOLB 

$DEFINE/NOLOG  IISSGLIB  "CDMDIR: [TOOLS. COMP]GENOLB.OLB" 
$DEFINE  CDMTEMPS  "CDMDIR: [TOOLS . COMP. TEMPS ] " 

$if  pi  .eqs.  "N"  then  goto  LINKRCMP 
$WS="WRITE  SYS$OUTPUT" 

$  LINK: 

$DEASSIGN  SYS$OUTPUT 
$WS  "  " 

$WS  "Beginning  Generation  of  Rp-Main" 

$LUW="CDMREPRT" 

$CDM="CDM/CDM" 

$! 

$!  generate  the  rp-main 

$!  NOTE:  this  is  done  automatically  if  you  link 

$! 

$! 

$!  set  up  .dat  file  to  send  to  genrpd 

$6pEN/WRITE  GENRPD.DAT  GENRPD.DAT 
$WRITE  GENRPD.DAT  LUW,  "  ",  CDM,  "  VAX" 

$CLOSE  GENRPD.DAT 
$  OPEN/WRITE  FDLIN  FIX.FDL 

$  WRITE  FDLIN  "IDENT  ""23-FEB-1988  09:49:43  VAX-11  FDL 
Editor"" " 


$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$! 

$! 

$! 


WRITE 

WRITE 

WRITE 

FDLIN 

FDLIN 

FDLIN 

II  II 

"SYSTEM” 

II 

SOURCE 

VAX/ VMS" 

WRITE 

WRITE 

WRITE 

FDLIN 

FDLIN 

FDLIN 

II  II 

"FILE" 

II 

ALLOCATION 

3" 

WRITE 

FDLIN 

It 

BEST  TRY  CONTIGUOUS 

yes" 

WRITE 

FDLIN 

It 

EXTENSION 

39" 

WRITE 

FDLIN 

It 

ORGANIZATION 

sequential" 

WRITE 

WRITE 

WRITE 

FDLIN 

FDLIN 

FDLIN 

It  II 

"RECORD" 

It 

BLOCK  SPAN 

yes" 

WRITE 

FDLIN 

11 

CARRIAGE  CONTROL 

carriage_return" 

fixed" 

WRITE 

FDLIN 

II 

FORMAT 

WRITE 

FDLIN 

II 

SIZE 

80" 

CLOSE  FDLIN 
CONVERT/ PAD= 

=%040/FDL=FIX  GENRPD.DAT  GENRPD. 

DAT 

now  run  genrpd 


$ASSIGN/USER_MODE  SYS$COMMAND  SYS$INPUT 
$ASSIGN  'LUW'.RPD  SYS$OUTPUT 
$RUNGENRPD 

$DEASSIGN  SYS$OUTPUT 

$DELETE  GENRPD.DAT;*,  FIX.FDL;* 

$! 

$!  now  get  the  needed  information  to  compile  the  rp-main (s) 

$! 
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$ASSIGN  'LUW'.RDCOMP  SYS$OUTPUT 
$GENRPDFLAG  =  0 
$OPEN/READ  EFLE  ' LUW ' . RPD 
$  RDLOOPj 

$READ/ENd1oF  FILE=ENDMAIN  EFLE  EREC 
$  LENG  =  ' Ff LENGTH ( EREC ) ' 

$  DBMS  =  'F$LOCATE(''FOR  DBMS”,  EREC)' 

$  UN  =  'F$LOCATE( "STORED  ON”,  EREC)' 
$  MN  =  'F$LOCATE( "MODULE”,  EREC)' 

$  DB  =  'F$LOCATE(''DATA  BASE”,  EREC)' 
$  RM  =  'F$LOCATE('' REMOTE/”,  EREC)' 

$  HST  =  'F$LOCATE(''RUN  AT”,  EREC)' 


$ 

IF 

'MN' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVMODNM 

$ 

IF 

'DB' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVDBN 

$ 

IF 

'RM' 

.NES. 

'LENG' 

THEN 

GOTO 

RMLC 

$ 

IF 

'HST' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVEHST 

$ 

IF 

' DBMS ' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVEDBMS 

$ 

IF 

'UN' 

.EQS. 

' LENG ' 

THEN 

GOTO 

RDLOOP 

$GENRPDFLAG  =  1 
$UN1  =  'UN'  +  16 

$UNEND  =  'F$LOCATE(''. '',EREC)  -  UNI 
$PL  :=  'F$EXTRACT(UN1,  UNEND,  EREC)' 

$IF  DBMSNM  .EQS.  "ORACLE”  THEN  GOTO  MAINPCC 

$WS  "A  NEW  DBMS  TYPE  MUST  BE  ADDED  TO  THE  MAIN  COMPILE  PART  OF  THIS 
PROCEDURE” 

$GOTO  EXIT 

$! 

$!  get  the  rp-main  mod  name 

$! 

$  SAVMODNM; 

$MN1  =  'MN'  +  7 

$RPMN1  :=  'F$EXTRACT(MN1,  10,  EREC)' 

$LENG  =  'F$LENGTH(RPMN1) ' 

$MN2  =  'F$LOCATE(''ZZZ'',  RPMNl) 

$IF  'MN2'  .EQS.  'LENG'  THEN  MODLOC  =  0 

$IF  'MN2'  .NES.  'LENG'  THEN  MODLOC  =  2 

$RPMN  :=  'F$EXTRACT (MODLOC,  5,  RPMNl) 

$GOTO  RDLOOP 

$! 

$!  get  the  remote/local  status 

$! 

$  RMLC: 

$RM1  =  'RM'  +  13 

$RMSW  :=  'F$EXTRACT(RM1,  1,  EREC)' 

$GOTO  RDLOOP 

$! 

$!  get  the  database  name 

$! 

$  SAVDBN : 

$DB1  =  'DB'  +  10 

$DBN  :=  'F$EXTRACT(DB1,  30.  EREC)' 

$GOTO  RDLOOP 

$! 

$ !  get  the  host  name 

$! 

$  SAVEHST: 

$HST1  =  'HST'  +  7 

$HSTNM  :=  'F$EXTRACT(HST1,  3,  EREC)' 

$GOTO  RDLOOP 
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$! 

$!  get  the  dbms  name 

$  1 

$'  SAVEDBMS: 

$DBMS1  =  'DBMS'  +  9 

$DBMSNM  :=  ' F$EXTRACT (DBMSl ,  30,  EREC) 

$GOTO  RDLOOP 

$! 

$! 

$!  oracle  precompile  the  rp-main  (if  needed) 

$  1 

$  MAINPCC: 

$PCC  INAME='PL' .TMP  LNAME= ' PL ' . ERR  USERID='CDM'  - 
ONAME= ' PL ' . COB  INCLUDE=SYS$ORACLE:  HOST=COB74  MAXLITERAL=160 
REBIND=YES 

$ON  ERROR  THEN  WS  "ORACLE  ERROR  IN  RP-MAIN  ''PL '.TMP" 

$ON  ERROR  THEN  GOTO  EXIT 

$COBOL/ANSI_FORMAT/CHECK=ALL/COPY_LIST/CROSS_REFERENCE/OBJECT= ' PL' . 
OBJ  - 

/FIPS=74/NOLIST/CHECK=ALL/STANDARD= (SYNTAX) /DEBUG=ALL  ' PL' . COB 
$ON  ERROR  THEN  WS  "COBOL  ERROR  IN  RP-MAIN  ''PL '.TMP" 

$ON  ERROR  THEN  GOTO  EXIT 
$DELETE  ' PL ' . COB ; * 

$ DELETE  'PL '.ERR;* 

$! 

$!  Compile  the  rpmain.c 

$! 

$vcc/debug/NOLIST/show= ( include) /standard=portable  - 

/noopt/OBJECT=CDMDIR: [TOOLS. COMP) RPMAIN. OBJ/DEFINE=VAX 
RPMAIN . C 

$delete  rpmain.c;* 

$GOTO  RDLOOP 

$! 

$!  done  generating  rp-main 

$1 

$  ENDMAIN; 

$CLOSE  EFLE 
$DEASSIGN  SYS$OUTPUT 

$IF  GENRPDFLAG  .EQ.  0  THEN  GOTO  MAINERR 
$WS  "  " 

$WS  "GENERATION  OF  REQUEST  PROCESSOR  MAIN  COMPLETE" 

$GOTO  STARTLINK 

$! 

$!  there  was  an  error  in  generating  the  rp-main 

$ ! 

$  MAINERR; 

$WS  "THE  GENRPD  HAD  ERRORS .  EXAMINE  ' ' LUW  * . RPD" 

$GOTO  EXIT 
$STARTLINK: 

$DELETE  ' LUW ' . RPD ; * 

$  DELETF  ' LUW ' . RDCOMP ; * 

$WRITF  SYS$OUTPUT  "  -  LINKING  CDMREPRT.EXE  " 

$  assign  CDMREPRT.LINK  SYS$0UTPUT 

$! 

$DELETE  CMDIR: [RUNAREA] CDMREPRT. EXE; * 

$I 

$!  inquire  p5  "ENTER  TWO  LETTER  NTM  DIRECTORY  PREFIX  " 

$!  inquire  p6  "ENTER  NTM  CLUSTER  FOR  THIS  RP  (TIV  OR  UIV)  " 

$I 
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$P5  =  ''GR'' 

$P6  =  ''UIV 
$P1  =  "CDMREPRT" 

$ ! 

$!  NTMTAB.COM 

$! 

$  1 

$!  UPDATE  NTM  TABLES  APITBL.DAT,  APTTBL.DAT 

$! 

$  1 

$  *  FLAG=0 
$  P7=P5+P1 

$  OPEN/READ  APITBL.DAT  CDMDIR: [RUNAREA] APITBL. DAT 
$  RDl: 

$  READ/END_OF_FILE=CHK  APITBL.DAT  ENTRY 
$  RPND=F$EXTRACT( 0,10, ENTRY) 

$  IF  RPND  .NES.  P7  THEN  GOTO  RDl 
$  FLAG=1 
$  CHK: 

$  CLOSE  APITBL.DAT 
$  IF  FLAG  .NES.  0  THEN  GOTO  NOUPD 
$  GOTO  UPD 
$  NOUPD: 

$  WRITE  SYS$OUTPUT  "  " 

$  WRITE  SYS$OUTPUT  "RP  MAIN  '',P1,"  ALREADY  IN  NTM  TABLES" 
$  WRITE  SYS$OUTPUT  "  " 

$  GOTO  LINKRCMP 
$  UPD: 

$  RPAPI=P7+P6+"1" 

$  RPAPT=P1+"9999010120001130N0" 

$  OPEN/APPEND  APITBL.DAT  CDMDIR: [RUNAREA] APITBL. DAT 
$  OPEN/ APPEND  APTTBL.DAT  CDMDIR: [RUNAREA] APTTBL. DAT 
$  WRITE  APITBL.DAT  RPAPI 
$  WRITE  APTTBL.DAT  RPAPT 
$  CLOSE  APITBL.DAT 
$  CLOSE  APTTBL.DAT 
$  WRITE  SYS$OUTPUT  "  " 

$  WRITE  SYS$OUTPUT  "NTM  TABLES  UPDATED  WITH  RP  ",P1 
$  WRITE  SYS$OUTPUT  "  " 

$ ! 

$! DEFINE  CDMROLB  "CDMDIR: [CDMR] CDMRO LB" 

$ LINKRCMP: 

$@SYS$ORACLE:LFOR  CMDIR: [RUNAREA] CDMREPRT  - 
iissglib/lib/include=(cdmrrp) ,- 
CDMDIR: [TOOLS . COMP] RPMAIN. OBJ, - 
I  PL • , OBJ  — 

CDMDIR: [COM] CDMI/OPTIONS , - 
SYS  $ORACLE : SQLLI B/ LI B , - 
CDMDIR: [COM]CDMUI.OPT/OPT,- 
CDMDIR: [COM] CDMNTM. OPT/OPTIONS  N 
$DEASSIGN  SYS$OUTPUT 

$DELETE  CDMREPRT . LINK ; * ,  RPMAIN . OBJ ; * ,  ' PL ' . OBJ ; * 

$WRITE  SYS$OUTPUT  "LINKING  COMPLETED" 

$EXIT: 

$DEASSIGN  TOOLOLB 

$! 
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